home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue35 / pageprnt / PAGEPRNT.ZIP / PagePrnt / Beta / TestIt / Unit1.dfm / Unit1.txt
Text File  |  1997-10-30  |  7KB  |  218 lines
  1. object MainForm: TMainForm
  2.   Left = 193
  3.   Top = 109
  4.   Width = 347
  5.   Height = 348
  6.   Caption = 'TPagePrinter Test Application'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   OnShow = FormShow
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Prn: TPagePrinter
  15.     Left = 0
  16.     Top = 0
  17.     Width = 339
  18.     Height = 291
  19.     HorzScrollBar.Increment = 16
  20.     HorzScrollBar.Range = 216
  21.     HorzScrollBar.Tracking = True
  22.     VertScrollBar.Increment = 16
  23.     VertScrollBar.Range = 276
  24.     VertScrollBar.Tracking = True
  25.     Align = alClient
  26.     AutoScroll = False
  27.     Font.Color = clWindowText
  28.     Font.Height = -13
  29.     Font.Name = 'Courier New'
  30.     Font.Style = []
  31.     TabOrder = 0
  32.     DefaultColWidth = 0.999999999999999900
  33.     FileName = 'C:\TestFile.txt'
  34.     FriendlyFooter = '&l&d&r&t'
  35.     FriendlyHeader = '&l&i&rPage &p'
  36.     Lines.Strings = (
  37.       'type'
  38.       '  TMainForm = class(TForm)'
  39.       '    Prn: TPagePrinter;'
  40.       '    Panel1: TPanel;'
  41.       '    btnPreview: TButton;'
  42.       '    Label1: TLabel;'
  43.       '    btnNextPage: TSpeedButton;'
  44.       '    btnPrevPage: TSpeedButton;'
  45.       '    Label4: TLabel;'
  46.       '    ZoomList: TComboBox;'
  47.       '    ZoomTimer: TTimer;'
  48.       '    btnPrint: TButton;'
  49.       '    procedure btnPreviewClick(Sender: TObject);'
  50.       '    procedure FormShow(Sender: TObject);'
  51.       '    procedure btnNextPageClick(Sender: TObject);'
  52.       '    procedure btnPrevPageClick(Sender: TObject);'
  53.       '    procedure ZoomListKeyPress(Sender: TObject; var Key: Char);'
  54.       '    procedure ZoomListClick(Sender: TObject);'
  55.       '    procedure ZoomTimerTimer(Sender: TObject);'
  56.       '    procedure btnPrintClick(Sender: TObject);'
  57.       '  private'
  58.       '    { Private declarations }'
  59.       '  public'
  60.       '    { Public declarations }'
  61.       '  end;'
  62.       ''
  63.       ''
  64.       'NETDI: NdiCreate(TCP/IP) OK'
  65.       ''
  66.       'NETDI: NETDI: lpRegLogConf = 0x0'
  67.       ''
  68.       
  69.         'NETDI: ClassInstall (0x9 on 0x19fe:0xfa0) on  at Enum\Root\Net\0' +
  70.         '000'
  71.       ''
  72.       'NETDI: Validating TCP/IP at Enum\Network\MSTCP\0000, rc = 0x0'
  73.       ''
  74.       
  75.         'NETDI: Validating Client for NetWare Networks at Enum\Network\NW' +
  76.         'REDIR\0000, rc = 0x0'
  77.       ''
  78.       
  79.         'NETDI: Validating Client for Microsoft Networks at Enum\Network\' +
  80.         'VREDIR\0000, rc = 0x0'
  81.       ''
  82.       'NETDI: Validating NetBEUI at Enum\Network\NETBEUI\0000, rc = 0x0'
  83.       ''
  84.       
  85.         'NETDI: Validating IPX/SPX-compatible Protocol at Enum\Network\NW' +
  86.         'LINK\0000, rc = 0x0'
  87.       ''
  88.       
  89.         'NETDI: Validating Dial-Up Adapter at Enum\Root\Net\0000, rc = 0x' +
  90.         '0 NETDI: ClassInstall(0x9) end NETDI: ClassInstall (0xa on 0x19f' +
  91.         'e:0xfa0) on  at Enum\Root\Net\0000 NETDI: ChangeLine: No matches' +
  92.         ' found. NETDI: ClassInstall(0xa) end'
  93.       ''
  94.       
  95.         'NETDI: ClassInstall (0xc on 0x19fe:0xfa0) on  at Enum\Root\Net\0' +
  96.         '000'
  97.       ''
  98.       'NETDI: ClassInstall(0xc) end')
  99.     MarginBottom = 1.000000000000000000
  100.     MarginLeft = 0.999999999999999900
  101.     MarginRight = 0.999999999999999900
  102.     MarginTop = 1.000000000000000000
  103.     OnGetCellFormat = PrnGetCellFormat
  104.     PageBorderOffset = 0.062500000000000000
  105.     PageBorders = [pbTop, pbBottom]
  106.     TableFormat = '<1|^-1|>1'
  107.     TableGrid = True
  108.     Title = 'PagePrinter Testing'
  109.   end
  110.   object Panel1: TPanel
  111.     Left = 0
  112.     Top = 291
  113.     Width = 339
  114.     Height = 30
  115.     Align = alBottom
  116.     BevelOuter = bvNone
  117.     TabOrder = 1
  118.     object btnPrevPage: TSpeedButton
  119.       Left = 153
  120.       Top = 4
  121.       Width = 25
  122.       Height = 25
  123.       Glyph.Data = {
  124.         4E010000424D4E01000000000000760000002800000012000000120000000100
  125.         040000000000D800000000000000000000001000000000000000000000000000
  126.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  127.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBBBBBBBB
  128.         BBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBB
  129.         BBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB00
  130.         00007FFFFFFFFFFFFFFFFF00000078888888888888888F000000788888888888
  131.         88888F00000078888888888888888F00000078888888888888888F0000007777
  132.         7777777777777F000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB00
  133.         0000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBBBBBBBB000000BBBBBBBBBBBB
  134.         BBBBBB000000BBBBBBBBBBBBBBBBBB000000}
  135.       OnClick = btnPrevPageClick
  136.     end
  137.     object lblPage: TLabel
  138.       Left = 209
  139.       Top = 9
  140.       Width = 25
  141.       Height = 13
  142.       Caption = 'Page'
  143.     end
  144.     object btnNextPage: TSpeedButton
  145.       Left = 177
  146.       Top = 4
  147.       Width = 25
  148.       Height = 25
  149.       Glyph.Data = {
  150.         4E010000424D4E01000000000000760000002800000012000000120000000100
  151.         040000000000D800000000000000000000001000000000000000000000000000
  152.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  153.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00BBBBBBFFFFFF
  154.         BBBBBB000000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB000000BBBB
  155.         BB78888FBBBBBB000000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB00
  156.         00007FFFFFF8888FFFFFFF00000078888888888888888F000000788888888888
  157.         88888F00000078888888888888888F00000078888888888888888F0000007777
  158.         7778888F77777F000000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB00
  159.         0000BBBBBB78888FBBBBBB000000BBBBBB78888FBBBBBB000000BBBBBB78888F
  160.         BBBBBB000000BBBBBB777777BBBBBB000000}
  161.       OnClick = btnNextPageClick
  162.     end
  163.     object Label4: TLabel
  164.       Left = 117
  165.       Top = 9
  166.       Width = 28
  167.       Height = 13
  168.       Caption = 'Page:'
  169.     end
  170.     object btnPreview: TButton
  171.       Left = 8
  172.       Top = 4
  173.       Width = 49
  174.       Height = 25
  175.       Caption = 'Preview'
  176.       TabOrder = 0
  177.       OnClick = btnPreviewClick
  178.     end
  179.     object ZoomList: TComboBox
  180.       Left = 253
  181.       Top = 6
  182.       Width = 77
  183.       Height = 21
  184.       ItemHeight = 13
  185.       Items.Strings = (
  186.         '200%'
  187.         '175%'
  188.         '150%'
  189.         '125%'
  190.         '100%'
  191.         '50%'
  192.         'Fit To Width'
  193.         'Fit To Height'
  194.         'Whole Page')
  195.       TabOrder = 1
  196.       Text = '25%'
  197.       OnClick = ZoomListClick
  198.       OnKeyPress = ZoomListKeyPress
  199.     end
  200.     object btnPrint: TButton
  201.       Left = 60
  202.       Top = 4
  203.       Width = 49
  204.       Height = 25
  205.       Caption = 'Print'
  206.       TabOrder = 2
  207.       OnClick = btnPrintClick
  208.     end
  209.   end
  210.   object ZoomTimer: TTimer
  211.     Enabled = False
  212.     Interval = 50
  213.     OnTimer = ZoomTimerTimer
  214.     Left = 276
  215.     Top = 260
  216.   end
  217. end
  218.